home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g50.bas < prev    next >
BASIC Source File  |  1991-10-18  |  439b  |  17 lines
  1. 100 ' G50 T.WAKAMATSU
  2. 110 CLS
  3. 120 DIM A(180),B(180),C(180),D(180)
  4. 130 K=0:PI=3.14159!
  5. 140 FOR T=-45 TO 313 STEP 2
  6. 150   X0=220*SIN(T*PI/180)+220:Y0=220*COS(T*PI/180)+240
  7. 160   X1=220*COS(T*PI/180)+419:Y1=220*SIN(T*PI/180)+240
  8. 170   K=K+1:A(K)=X0:B(K)=Y0:C(K)=X1:D(K)=Y1
  9. 180 NEXT T
  10. 190 FOR N=1 TO 6
  11. 200   READ CL
  12. 210   FOR K=1 TO 180
  13. 220     LINE(A(K),B(K))-(C(K),D(K)),PSET,%CL
  14. 230   NEXT K
  15. 240 NEXT N
  16. 250 DATA 2,6,4,5,1,0
  17.